home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / ditroff / RCS / tmac.e,v < prev    next >
Encoding:
Text File  |  1989-05-25  |  16.4 KB  |  1,307 lines
  1. head     1.2;
  2. branch   ;
  3. access   ;
  4. symbols  ;
  5. locks    ; strict;
  6. comment  @# @;
  7.  
  8.  
  9. 1.2
  10. date     89.05.25.16.06.56;  author ouster;  state Exp;
  11. branches ;
  12. next     1.1;
  13.  
  14. 1.1
  15. date     89.05.25.15.54.38;  author ouster;  state Exp;
  16. branches ;
  17. next     ;
  18.  
  19.  
  20. desc
  21. @@
  22.  
  23.  
  24. 1.2
  25. log
  26. @Upgrade with version from Okeeffe (5/25/89).
  27. (things like .bu were missing).
  28. @
  29. text
  30. @.nr _0 \n(.c
  31. .\" Copyright (c) 1988 The Regents of the University of California.
  32. .\" All rights reserved.
  33. .\"
  34. .\" Redistribution and use in source and binary forms are permitted
  35. .\" provided that the above copyright notice and this paragraph are
  36. .\" duplicated in all such forms and that any documentation,
  37. .\" advertising materials, and other materials related to such
  38. .\" distribution and use acknowledge that the software was developed
  39. .\" by the University of California, Berkeley.  The name of the
  40. .\" University may not be used to endorse or promote products derived
  41. .\" from this software without specific prior written permission.
  42. .\" THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  43. .\" IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  44. .\" WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  45. .\"
  46. .\"    %W% (Berkeley) %G%
  47. .\"
  48. .\" This version has had comments stripped; an unstripped version is available.
  49. .if !\n(.V .tm You are using the wrong version of NROFF/TROFF!!
  50. .if !\n(.V .tm This macro package works only on the version seven
  51. .if !\n(.V .tm release of NROFF and TROFF.
  52. .if !\n(.V .ex
  53. .if \n(pf \
  54. .    nx \*(||/null.me
  55. .de @@C
  56. .nr _S \\n(.s
  57. .nr _V \\n(.v
  58. .nr _F \\n(.f
  59. .nr _I \\n(.i
  60. .ev \\$1
  61. .ps \\n(_S
  62. .vs \\n(_Vu
  63. .ft \\n(_F
  64. 'in \\n(_Iu
  65. .xl \\n($lu
  66. .lt \\n($lu
  67. .rr _S
  68. .rr _V
  69. .rr _F
  70. .rr _I
  71. .ls 1
  72. 'ce 0
  73. ..
  74. .de @@D
  75. .ds |p "\\$3
  76. .nr _d \\$1
  77. .ie "\\$2"C" \
  78. .    nr _d 1
  79. .el .ie "\\$2"L" \
  80. .    nr _d 2
  81. .el .ie "\\$2"I" \
  82. .    nr _d 3
  83. .el .ie "\\$2"M" \
  84. .    nr _d 4
  85. .el \
  86. .    ds |p "\\$2
  87. ..
  88. .de @@z
  89. .if !"\\n(.z"" \
  90. \{\
  91. .    tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
  92. .    di
  93. .    ex
  94. .\}
  95. .if \\n(?a \
  96. .    bp
  97. .rm bp
  98. .rm @@b\"
  99. .if t \
  100. .    wh -1p @@m
  101. .br
  102. ..
  103. .de @@I
  104. .rm th
  105. .rm ac
  106. .rm lo
  107. .rm sc
  108. .rm @@I
  109. ..
  110. .de he
  111. .ie !\\n(.$ \
  112. \{\
  113. .    rm |4
  114. .    rm |5
  115. .\}
  116. .el \
  117. \{\
  118. .    ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  119. .    ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  120. .\}
  121. ..
  122. .de eh
  123. .ie !\\n(.$ \
  124. .    rm |4
  125. .el \
  126. .    ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  127. ..
  128. .de oh
  129. .ie !\\n(.$ \
  130. .    rm |5
  131. .el \
  132. .    ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  133. ..
  134. .de fo
  135. .ie !\\n(.$ \
  136. \{\
  137. .    rm |6
  138. .    rm |7
  139. .\}
  140. .el \
  141. \{\
  142. .    ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  143. .    ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  144. .\}
  145. ..
  146. .de ef
  147. .ie !\\n(.$ \
  148. .    rm |6
  149. .el \
  150. .    ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  151. ..
  152. .de of
  153. .ie !\\n(.$ \
  154. .    rm |7
  155. .el \
  156. .    ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  157. ..
  158. .de ep
  159. .if \\n(nl>0 \
  160. \{\
  161. .    wh 0
  162. .    rs
  163. .    @@b
  164. .\}
  165. ..
  166. .de @@h
  167. .if (\\n(.i+\\n(.o)>=\\n(.l \
  168. .    tm Line \\n(c. -- Offset + indent exceeds line length
  169. .if t .if (\\n(.l+\\n(.o)>7.75i \
  170. .    tm Line \\n(c. -- Offset + line length exceeds paper width
  171. .nr ?h \\n(?H
  172. .rr ?H
  173. .nr ?c \\n(?C
  174. .rr ?C
  175. .rn |4 |0
  176. .rn |5 |1
  177. .rn |6 |2
  178. .rn |7 |3
  179. .nr _w 0
  180. .nr ?W 0
  181. .nr ?I 1
  182. .ev 2
  183. .rs
  184. .if t .@@m
  185. .if \\n(hm>0 \
  186. .    sp |\\n(hmu
  187. .@@t $h
  188. .if \\n(tm<=0 \
  189. .    nr tm \n(.Vu
  190. .sp |\\n(tmu
  191. .ev
  192. .mk _k
  193. .if \\n(?n .nm 1
  194. .nr $c 1
  195. .ie \\n(?s \
  196. \{\
  197. .    rr ?s
  198. .    rs
  199. '    @@b
  200. .\}
  201. .el \
  202. .    @@n
  203. ..
  204. .if \nv=2 \
  205. \{\
  206. .    de @@m
  207. .    @@O 0
  208. .    lt 7.5i
  209. .    tl '\(rn''\(rn'
  210. .    @@O
  211. .    lt
  212. ..
  213. .\}
  214. .de @@n
  215. .if \\n(bm<=0 \
  216. .    nr bm \\n(.Vu
  217. .if (\\n(_w<=\\n($l)&(\\n(?W=0) \
  218. \{\
  219. .    nr _b (\\n(ppu*\\n($ru)/2u
  220. .    if \\n(_bu>((\\n(bmu-\\n(fmu-(\\n(tpu*\\n($ru))/2u) \
  221. .        nr _b (\\n(ppu*\\n($ru)-\n(.Vu
  222. .    nr _b +\\n(bmu
  223. .\}
  224. .nr _B \\n(_bu
  225. .ch @@f
  226. .wh -\\n(_bu @@f
  227. .nr _b +(\\n(ppu*\\n($ru)
  228. .nr ?f 0
  229. .if \\n(?o \
  230. \{\
  231. .    (f _
  232. .    nf
  233. .    |o
  234. .    fi
  235. .    )f
  236. .    rm |o
  237. .\}
  238. .nr ?o 0
  239. .if \\n(?T \
  240. \{\
  241. .    nr _i \\n(.i
  242. .    in \\n($iu
  243. .    |h
  244. .    in \\n(_iu
  245. .    rr _i
  246. .    mk #T
  247. .    ns
  248. .\}
  249. .if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
  250. \{\
  251. .    nr ?a 0
  252. .    @@k |t
  253. .    if \\n(?w \
  254. .        mk _k
  255. .    nr ?w 0
  256. .\}
  257. .os
  258. .$H
  259. .ns
  260. ..
  261. .de @@f
  262. .ec
  263. .if \\n(?T \
  264. \{\
  265. .    nr T. 1
  266. .    T# 1
  267. .    br
  268. .\}
  269. .ev 2
  270. .ce 0
  271. .if \\n(?b \
  272. \{\
  273. .    nr ?b 0
  274. .    @@k |b\"
  275. .\}
  276. .if \\n(?f \
  277. .    @@o
  278. .ie \\n($c<\\n($m \
  279. .    @@c
  280. .el \
  281. .    @@e
  282. .ev
  283. ..
  284. .de @@o
  285. .nf
  286. .ls 1
  287. .in 0
  288. .wh -\\n(_Bu @@r
  289. .|f
  290. .fi
  291. .if \\n(?o \
  292. \{\
  293. .    di
  294. .    if \\n(dn=0 \
  295. \{\
  296. .        rm |o
  297. .        nr ?o 0
  298. .    \}
  299. .    nr dn \\n(_D
  300. .    rr _D
  301. .\}
  302. .rm |f
  303. .ch @@r
  304. ..
  305. .de @@c
  306. .rs
  307. .sp |\\n(_ku
  308. .@@O +\\n($lu+\\n($su
  309. .nr $c +1
  310. .@@n
  311. ..
  312. .de @@e
  313. .@@O \\n(_ou
  314. .rs
  315. .sp |\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru)
  316. .@@t $f
  317. .nr ?h 0
  318. .bp
  319. ..
  320. .de @@t
  321. .if !\\n(?h \
  322. \{\
  323. .    sz \\n(tp
  324. .    @@F \\n(tf
  325. .    lt \\n(_Lu
  326. .    nf
  327. .    \\$1
  328. .    br
  329. .\}
  330. ..
  331. .de $h
  332. .rm |z
  333. .if !\\n(?c \
  334. \{\
  335. .    if e .ds |z "\\*(|0
  336. .    if o .ds |z "\\*(|1
  337. .\}
  338. .if !\(ts\\*(|z\(ts\(ts \
  339. '    tl \\*(|z
  340. .rm |z
  341. ..
  342. .de $f
  343. .rm |z
  344. .if \\n(?c \
  345. \{\
  346. .    if e .ds |z "\\*(|0
  347. .    if o .ds |z "\\*(|1
  348. .\}
  349. .if \(ts\\*(|z\(ts\(ts \
  350. \{\
  351. .    if e .ds |z "\\*(|2
  352. .    if o .ds |z "\\*(|3
  353. .\}
  354. .if !\(ts\\*(|z\(ts\(ts \
  355. '    tl \\*(|z
  356. .rm |z
  357. ..
  358. .de @@r
  359. .di |o
  360. .nr ?o 1
  361. .nr _D \\n(dn
  362. .ns
  363. ..
  364. .rn bp @@b
  365. .de bp
  366. .nr $c \\n($m
  367. .ie \\n(nl>0 \
  368. .    @@b \\$1
  369. .el \
  370. \{\
  371. .    if \\n(.$>0 \
  372. .        pn \\$1
  373. .    if \\n(?I \
  374. .        @@h
  375. .\}
  376. .br
  377. .wh 0 @@h
  378. ..
  379. .rn ll xl
  380. .de ll
  381. .xl \\$1
  382. .lt \\$1
  383. .nr $l \\n(.l
  384. .if (\\n($m<=1):(\\n($l>\\n(_L) \
  385. .    nr _L \\n(.l
  386. ..
  387. .rn po @@O
  388. .de po
  389. .@@O \\$1
  390. .nr _o \\n(.o
  391. ..
  392. .de hx
  393. .nr ?H 1
  394. ..
  395. .de ix
  396. 'in \\$1
  397. ..
  398. .de bl
  399. .br
  400. .ne \\$1
  401. .rs
  402. .sp \\$1
  403. ..
  404. .de n1
  405. .nm 1
  406. .xl -\w'0000'u
  407. .nr ?n 1
  408. ..
  409. .de n2
  410. .nm \\$1
  411. .ie \\n(.$ \
  412. .    xl -\w'0000'u
  413. .el \
  414. .    xl \\n($lu
  415. ..
  416. .de pa
  417. .bp \\$1
  418. ..
  419. .de ro
  420. .af % i
  421. ..
  422. .de ar
  423. .af % 1
  424. ..
  425. .de m1
  426. .nr _0 \\n(hmu
  427. .nr hm \\$1v
  428. .nr tm +\\n(hmu-\\n(_0u
  429. .rr _0
  430. ..
  431. .de m2
  432. .nr tm \\n(hmu+\\n(tpp+\\$1v
  433. ..
  434. .de m3
  435. .nr bm \\n(fmu+\\n(tpp+\\$1v
  436. ..
  437. .de m4
  438. .nr _0 \\n(fmu
  439. .nr fm \\$1v
  440. .nr bm +\\n(fmu-\\n(_0u
  441. ..
  442. .de sk
  443. .if \\n(.$>0 \
  444. .    tm Line \\n(c. -- I cannot skip multiple pages
  445. .nr ?s 1
  446. ..
  447. .de re
  448. .ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
  449. ..
  450. .if t .ig
  451. .de re
  452. .ta 0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i
  453. ..
  454. .de ba
  455. .ie \\n(.$ \
  456. .    nr $i \\$1n
  457. .el \
  458. .    nr $i \\n(siu*\\n($0u
  459. ..
  460. .de hl
  461. .br
  462. \l'\\n(.lu-\\n(.iu'
  463. .sp
  464. ..
  465. .de pp
  466. .lp \\n(piu
  467. ..
  468. .de lp
  469. .@@p
  470. .if \\n(.$ \
  471. .    ti +\\$1
  472. .nr $p 0 1
  473. ..
  474. .de ip
  475. .if (\\n(ii>0)&(\\n(ii<1n) \
  476. .    nr ii \\n(iin
  477. .nr _0 \\n(ii
  478. .if \\n(.$>1 \
  479. .    nr _0 \\$2n
  480. .@@p \\n(_0u
  481. .if \\w"\\$1" \
  482. \{\
  483. .    ti -\\n(_0u
  484. .    ie \\w"\\$1">=\\n(_0 \
  485. \{\
  486. \&\\$1
  487. .        br
  488. .    \}
  489. .    el \&\\$1\h'|\\n(_0u'\c
  490. .\}
  491. .rr _0
  492. ..
  493. .de np
  494. .if \\n($p<0 \
  495. .    nr $p 0
  496. .nr $p +1
  497. .@@p \w'\0(000)\0'u
  498. .ti -\w'\0(000)\0'u
  499. \0(\\n($p)\h'|\w'\0(000)\0'u'\c
  500. ..
  501. .de bu
  502. .br
  503. .if \\n($p<0 \
  504. .    ns
  505. .nr $p 0-1
  506. .@@p \w'\0\(bu\0'u
  507. .ti -\w'\0\(bu\0'u
  508. \0\(bu\0\c
  509. ..
  510. .de @@p
  511. .@@I
  512. .if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
  513. .in \\n($iu+\\n(pou
  514. .if \\n(.$ \
  515. .    in +\\$1n
  516. .ce 0
  517. .fi
  518. .@@F \\n(pf
  519. .sz \\n(pp
  520. .sp \\n(psu
  521. .ne \\n(.Lv+\\n(.Vu
  522. .ns
  523. ..
  524. .de sh
  525. .rn sh @@T
  526. .so \\*(||/sh.me
  527. .sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
  528. .rm @@T
  529. ..
  530. .de $p
  531. .if (\\n(si>0)&(\\n(.$>2) \
  532. .    nr $i \\$3*\\n(si
  533. .in \\n($iu
  534. .ie !"\\$1\\$2"" \
  535. \{\
  536. .    sp \\n(ssu
  537. .    ne \\n(.Lv+\\n(.Vu+\\n(psu+(\\n(spu*\\n($ru*\\n(.Lu)
  538. .    ie \\n(.$>2 \
  539. .        ti -(\\n(siu-\\n(sou)
  540. .    el \
  541. .        ti +\\n(sou
  542. .    @@F \\n(sf
  543. .    sz \\n(sp
  544. .    if \\$3>0 \
  545. .        $\\$3
  546. .    if \w"\\$2">0 \\$2.
  547. .    if \w"\\$1">0 \\$1\f1\ \ \&
  548. .\}
  549. .el \
  550. .    sp \\n(psu
  551. .@@F \\n(pf
  552. .sz \\n(pp
  553. ..
  554. .de uh
  555. .rn uh @@T
  556. .so \\*(||/sh.me
  557. .uh "\\$1"
  558. .rm @@T
  559. ..
  560. .de 2c
  561. .br
  562. .if \\n($m>1 \
  563. .    1c
  564. .nr $c 1
  565. .nr $m 2
  566. .if \\n(.$>1 \
  567. .    nr $m \\$2
  568. .if \\n(.$>0 \
  569. .    nr $s \\$1n
  570. .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
  571. .xl \\n($lu
  572. .mk _k
  573. .ns
  574. ..
  575. .de 1c
  576. .br
  577. .nr $c 1
  578. .nr $m 1
  579. .ll \\n(_Lu
  580. .sp |\\n(.hu
  581. .@@O \\n(_ou
  582. ..
  583. .de bc
  584. .sp 24i
  585. ..
  586. .de (z
  587. .rn (z @@V
  588. .so \\*(||/float.me
  589. .(z \\$1 \\$2
  590. .rm @@V
  591. ..
  592. .de )z
  593. .tm Line \\n(c. -- unmatched .)z
  594. ..
  595. .de (t
  596. .(z \\$1 \\$2
  597. ..
  598. .de )t
  599. .)z \\$1 \\$2
  600. ..
  601. .de (b
  602. .br
  603. .@@D 3 \\$1 \\$2
  604. .sp \\n(bsu
  605. .@@(
  606. ..
  607. .de )b
  608. .br
  609. .@@)
  610. .if (\\n(bt=0):(\\n(.t<\\n(bt) \
  611. .    ne \\n(dnu
  612. .ls 1
  613. .nf
  614. .|k
  615. .ec
  616. .fi
  617. .in 0
  618. .xl \\n($lu
  619. .ev
  620. .rm |k
  621. .sp \\n(bsu+\\n(.Lv-1v
  622. ..
  623. .de @@(
  624. .if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z
  625. .@@M
  626. .di |k
  627. \!'rs
  628. ..
  629. .de @@M
  630. .nr ?k 1
  631. .@@C 1
  632. .@@F \\n(df
  633. .vs \\n(.su*\\n($Ru
  634. .nf
  635. .if "\\*(|p"F" \
  636. .    fi
  637. .if \\n(_d=4 \
  638. .    in 0
  639. .if \\n(_d=3 \
  640. \{\
  641. .    in +\\n(biu
  642. .    xl -\\n(biu
  643. .\}
  644. .if \\n(_d=1 \
  645. .    ce 10000
  646. ..
  647. .de @@)
  648. .br
  649. .if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
  650. .nr ?k 0
  651. .di
  652. .in 0
  653. .ce 0
  654. ..
  655. .de (c
  656. .if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
  657. .di |c
  658. ..
  659. .de )c
  660. .if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
  661. .br
  662. .di
  663. .ev 1
  664. .ls 1
  665. .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
  666. .nf
  667. .|c
  668. .ec
  669. .in
  670. .ls
  671. .ev
  672. .rm |c
  673. ..
  674. .de (q
  675. .br
  676. .@@C 1
  677. .fi
  678. .sp \\n(qsu
  679. .in +\\n(qiu
  680. .xl -\\n(qiu
  681. .sz \\n(qp
  682. ..
  683. .de )q
  684. .br
  685. .ev
  686. .sp \\n(qsu+\\n(.Lv-1v
  687. .nr ?k 0
  688. ..
  689. .de (l
  690. .br
  691. .sp \\n(bsu
  692. .@@D 3 \\$1 \\$2
  693. .@@M
  694. ..
  695. .de )l
  696. .br
  697. .ev
  698. .sp \\n(bsu+\\n(.Lv-1v
  699. .nr ?k 0
  700. ..
  701. .de EQ
  702. .rn EQ @@T
  703. .so \\*(||/eqn.me
  704. .EQ \\$1 \\$2
  705. .rm @@T
  706. ..
  707. .de TS
  708. .rn TS @@W
  709. .so \\*(||/tbl.me
  710. .TS \\$1 \\$2
  711. .rm @@W
  712. ..
  713. .de ]-
  714. .rn ]- @@]
  715. .so \\*(||/refer.me
  716. .]-
  717. .rm @@]
  718. ..
  719. .de ]<
  720. .rn ]< @@]
  721. .so \\*(||/refer.me
  722. .]<
  723. .rm @@]
  724. ..
  725. .if n .ds [. " [
  726. .if t .ds [. \s-2\v'-.4m'\f1
  727. .if n .ds .] ]
  728. .if t .ds .] \v'.4m'\s+2\fP
  729. .if n .ds <. "
  730. .if t .ds <. .
  731. .if n .ds >. .
  732. .if t .ds >. "
  733. .de IS
  734. .nr g7 \\n(.u
  735. .ls 1
  736. ..
  737. .de IF
  738. .if \\n(g7 .fi
  739. .ls
  740. ..
  741. .de IE
  742. .if \\n(g7 .fi
  743. .ls
  744. ..
  745. .de PS
  746. .if t \
  747. .    sp 0.3
  748. .nr g7 \\$2
  749. .in (\\n(.lu-\\n(g7u)/2u
  750. .ne \\$1u
  751. .nr g7 \\n(.u
  752. .ls 1
  753. ..
  754. .de PE
  755. .ls
  756. .in
  757. .if \\n(g7 .fi
  758. .if t .sp .6
  759. ..
  760. .de GS
  761. .nr g7 (\\n(.lu-\\n(g1u)/2u
  762. .if "\\$1"L" .nr g7 \\n(.iu
  763. .if "\\$1"R" .nr g7 \\n(.lu-\\n(g1u
  764. .in \\n(g7u
  765. .nr g7 \\n(.u
  766. .ls 1
  767. .nf
  768. .ne \\n(g2u
  769. ..
  770. .de GE
  771. .GF
  772. .if t .sp .6
  773. ..
  774. .de GF
  775. .ls
  776. .in
  777. .if \\n(g7 .fi
  778. ..
  779. .de sz
  780. .ps \\$1
  781. .vs \\n(.su*\\n($ru
  782. .bd S B \\n(.su/3u
  783. ..
  784. .de r
  785. .nr _F \\n(.f
  786. .ul 0
  787. .ft 1
  788. .if \\n(.$ \&\\$1\f\\n(_F\\$2
  789. .rr _F
  790. ..
  791. .de i
  792. .nr _F \\n(.f
  793. .ul 0
  794. .ft 2
  795. .if \\n(.$ \&\\$1\f\\n(_F\\$2
  796. .rr _F
  797. ..
  798. .de b
  799. .nr _F \\n(.f
  800. .ul 0
  801. .ft \\n($b
  802. .if \\n(.$ \&\\$1\f\\n(_F\\$2
  803. .rr _F
  804. ..
  805. .de rb
  806. .nr _F \\n(.f
  807. .ul 0
  808. .ft 3
  809. .if \\n(.$ \&\\$1\f\\n(_F\\$2
  810. .rr _F
  811. ..
  812. .de u
  813. \&\\$1\l'|0\(ul'\\$2
  814. ..
  815. .de q
  816. \&\\*(lq\\$1\\*(rq\\$2
  817. ..
  818. .de bi
  819. .ft 2
  820. .ie t \&\k~\\$1\h'|\\n~u+(\\w' 'u/4u)'\\$1\fP\\$2
  821. .el \&\\$1\fP\\$2
  822. ..
  823. .de bx
  824. .ie \\n($T \&\f2\\$1\fP\\$2
  825. .el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
  826. ..
  827. .de sm
  828. \s-1\\$1\\s0\\$2
  829. ..
  830. .de @@F
  831. .nr ~ \\$1
  832. .if \\n~>0 \
  833. \{\
  834. .    ul 0
  835. .    if \\n~=8 \
  836. .        nr ~ \\n($b
  837. .    ft \\n~
  838. .\}
  839. .rr ~
  840. ..
  841. .de (f
  842. .rn (f @@U
  843. .so \\*(||/footnote.me
  844. .(f \\$1 \\$2
  845. .rm @@U
  846. ..
  847. .de )f
  848. .tm Line \\n(c. -- unmatched .)f
  849. ..
  850. .de $s
  851. \l'2i'
  852. .if n \
  853. .    sp 0.3
  854. ..
  855. .de (d
  856. .rn (d @@U
  857. .so \\*(||/deltext.me
  858. .(d \\$1 \\$2
  859. .rm @@U
  860. ..
  861. .de )d
  862. .tm Line \\n(c. -- unmatched .)d
  863. ..
  864. .de (x
  865. .rn (x @@U
  866. .so \\*(||/index.me
  867. .(x \\$1 \\$2
  868. .rm @@U
  869. ..
  870. .de )x
  871. .tm Line \\n(c. -- unmatched .)x
  872. ..
  873. .de th
  874. .so \\*(||/thesis.me
  875. .rm th
  876. ..
  877. .de +c
  878. .ep
  879. .if \\n(?o:\\n(?a \
  880. \{\
  881. .    bp
  882. .    rs
  883. .    ep
  884. .\}
  885. .nr ?C 1
  886. .nr $f 1 1
  887. .ds * \\*[1\\*]\k*
  888. .if \\n(?R \
  889. .    pn 1
  890. .bp
  891. .in \\n($iu
  892. .rs
  893. .ie \\n(.$ \
  894. .    $c "\\$1"
  895. .el \
  896. .    sp 3
  897. ..
  898. .de ++
  899. .nr _0 0
  900. .if "\\$1"C" \
  901. .    nr _0 1
  902. .if "\\$1"RC" \
  903. .    nr _0 11
  904. .if "\\$1"A" \
  905. .    nr _0 2
  906. .if "\\$1"RA" \
  907. .    nr _0 12
  908. .if "\\$1"P" \
  909. .    nr _0 3
  910. .if "\\$1"B" \
  911. .    nr _0 4
  912. .if "\\$1"AB" \
  913. .    nr _0 5
  914. .if \\n(_0=0 \
  915. .    tm Line \\n(c. -- Bad mode to .++
  916. .nr ?R 0
  917. .if \\n(_0>10 \
  918. .\{
  919. .    nr ?R 1
  920. .    nr _0 -10
  921. .\}
  922. .nr ch 0 1
  923. .if (\\n(_0=3):(\\n(_0=5) \
  924. .    pn 1
  925. .ep
  926. .if \\n(_0=1 \
  927. \{\
  928. .    af ch 1
  929. .    af % 1
  930. .\}
  931. .if \\n(_0=2 \
  932. \{\
  933. .    af ch A
  934. .    af % 1
  935. .\}
  936. .if \\n(_0=3 \
  937. .    af % i
  938. .if \\n(_0=4 \
  939. .    af % 1
  940. .if \\n(_0=5 \
  941. .    af % 1
  942. .if \\n(.$>1 \
  943. .    he \\$2
  944. .if !\\n(_0=\\n(_M .if \\n(_M=3 \
  945. .    pn 1
  946. .nr _M \\n(_0
  947. .rr _0
  948. ..
  949. .de $c
  950. .sz 12
  951. .ft B
  952. .ce 1000
  953. .if \\n(_M<3 \
  954. .    nr ch +1
  955. .ie \\n(_M=1 CHAPTER\ \ \\n(ch
  956. .el .if \\n(_M=2 APPENDIX\ \ \\n(ch
  957. .if \w"\\$1" .sp 3-\\n(.L
  958. .if \w"\\$1" \\$1
  959. .if (\\n(_M<3):(\w"\\$1") \
  960. .    sp 4-\\n(.L
  961. .ce 0
  962. .ft
  963. .sz
  964. .ie \\n(_M=1 \
  965. .    $C Chapter \\n(ch "\\$1"
  966. .el .if \\n(_M=2 \
  967. .    $C Appendix \\n(ch "\\$1"
  968. ..
  969. .de tp
  970. .hx
  971. .bp
  972. .br
  973. .rs
  974. .pn \\n%
  975. ..
  976. .de ac
  977. .rn ac @@T
  978. .so \\*(||/acm.me
  979. .ac "\\$1" "\\$2"
  980. .rm @@T
  981. ..
  982. .de lo
  983. .so \\*(||/local.me
  984. .rm lo
  985. ..
  986. .de lh
  987. .so \\*(||/letterhead.me
  988. ..
  989. .if \n(mo=1 .ds mo January
  990. .if \n(mo=2 .ds mo February
  991. .if \n(mo=3 .ds mo March
  992. .if \n(mo=4 .ds mo April
  993. .if \n(mo=5 .ds mo May
  994. .if \n(mo=6 .ds mo June
  995. .if \n(mo=7 .ds mo July
  996. .if \n(mo=8 .ds mo August
  997. .if \n(mo=9 .ds mo September
  998. .if \n(mo=10 .ds mo October
  999. .if \n(mo=11 .ds mo November
  1000. .if \n(mo=12 .ds mo December
  1001. .if \n(dw=1 .ds dw Sunday
  1002. .if \n(dw=2 .ds dw Monday
  1003. .if \n(dw=3 .ds dw Tuesday
  1004. .if \n(dw=4 .ds dw Wednesday
  1005. .if \n(dw=5 .ds dw Thursday
  1006. .if \n(dw=6 .ds dw Friday
  1007. .if \n(dw=7 .ds dw Saturday
  1008. .ds td \*(mo \n(dy, 19\n(yr
  1009. .if (1m<0.1i)&(\nx!=0) \
  1010. .    vs 9p
  1011. .rr x
  1012. .nr $r \n(.v/\n(.s
  1013. .nr $R \n($r
  1014. .nr hm 4v
  1015. .nr tm 7v
  1016. .nr bm 6v
  1017. .nr fm 3v
  1018. .nr tf 3
  1019. .nr tp 10
  1020. .hy 14
  1021. .nr bi 4m
  1022. .nr pi 5n
  1023. .nr pf 1
  1024. .nr pp 10
  1025. .nr qi 4n
  1026. .nr qp -1
  1027. .nr ii 5n
  1028. .nr $m 1
  1029. .nr $s 4n
  1030. .ds || /usr/lib/me
  1031. .bd S B 3
  1032. .ds [ \u\x'-0.25v'
  1033. .ds ] \d
  1034. .ds < \d\x'0.25v'
  1035. .ds > \u
  1036. .ds - --
  1037. .if t \
  1038. \{\
  1039. .    ds [ \v'-0.4m'\x'-0.2m'\s-3
  1040. .    ds ] \s0\v'0.4m'
  1041. .    ds < \v'0.4m'\x'0.2m'\s-3
  1042. .    ds > \s0\v'-0.4m'
  1043. .    ds - \(em
  1044. .    nr fi 0.3i
  1045. .\}
  1046. .if n \
  1047. \{\
  1048. .    nr fi 3n
  1049. .\}
  1050. .nr _o \n(.o
  1051. .if n .po 1i
  1052. .if \n(.V=1v \
  1053. .    nr $T 2
  1054. .if n .if \n(.T=0 \
  1055. .    nr $T 1
  1056. .if \nv=2 \
  1057. \{\
  1058. .    nr $T 0
  1059. .    po -0.5i
  1060. .\}
  1061. .if \n($T \
  1062. \{\
  1063. .    if \n($T=1 \
  1064. .        po 0
  1065. .    ds [ [
  1066. .    ds ] ]
  1067. .    ds < <
  1068. .    ds > >
  1069. .\}
  1070. .nr $b \nb
  1071. .rr b
  1072. .if \n($b=0 \
  1073. \{\
  1074. .    if n .nr $b 2
  1075. .    if t .nr $b 3
  1076. .\}
  1077. .nr ps 0.5v
  1078. .if \n($T \
  1079. .    nr ps 1v
  1080. .if t .nr ps 0.35v
  1081. .nr bs \n(ps
  1082. .nr qs \n(ps
  1083. .nr zs 1v
  1084. .nr xs 0.2v
  1085. .nr fs 0.2v
  1086. .if \n($T \
  1087. .    nr fs 0
  1088. .if n .nr es 1v
  1089. .if t .nr es 0.5v
  1090. .wh 0 @@h
  1091. .nr $l \n(.lu
  1092. .nr _L \n(.lu
  1093. .nr $c 1
  1094. .nr $f 1 1
  1095. .ds * \*[1\*]\k*\"
  1096. .nr $d 1 1
  1097. .ds # [1]\k#\"
  1098. .nr _M 1
  1099. .ds lq \&"\"
  1100. .ds rq \&"\"
  1101. .if t \
  1102. .    ds lq ``
  1103. .if t \
  1104. .    ds rq ''
  1105. .em @@z
  1106. .de sc
  1107. .so \\*(||/chars.me
  1108. .rm sc
  1109. ..
  1110. .ll 6.0i
  1111. .lt 6.0i
  1112. @
  1113.  
  1114.  
  1115. 1.1
  1116. log
  1117. @Initial revision
  1118. @
  1119. text
  1120. @d2 2
  1121. a3 20
  1122. .c2 '
  1123. .\"**********************************************************************
  1124. .\"*                                    *
  1125. .\"*    ******  - M E   N R O F F / T R O F F   M A C R O S  ******    *
  1126. .\"*                                    *
  1127. .\"*    Produced for your edification and enjoyment by:            *
  1128. .\"*        Eric Allman                        *
  1129. .\"*        Electronics Research Laboratory                *
  1130. .\"*        U.C. Berkeley.                        *
  1131. .\"*    current address:                        *
  1132. .\"*        Britton-Lee, Inc.                    *
  1133. .\"*        1919 Addison Street Suite 105                *
  1134. .\"*        Berkeley, California  94704                *
  1135. .\"*                                    *
  1136. .\"*    VERSION 2.14    First Release: 11 Sept 1978            *
  1137. .\"*    See file \*(||/revisions for revision history            *
  1138. .\"*                                    *
  1139. .\"*    Documentation is available.                    *
  1140. .\"*                                    *
  1141. .\"**********************************************************************
  1142. d5 14
  1143. a18 1
  1144. .\"    @@(#)tmac.e    2.14    12/28/81
  1145. d32 1
  1146. a32 1
  1147. .ps \\n(_Su
  1148. d70 1
  1149. a70 1
  1150. .if "\*(.T"vp" \
  1151. d155 1
  1152. a155 1
  1153. .if "\*(.T"vp" .@@m
  1154. d175 8
  1155. a182 6
  1156. .de @@m
  1157. .@@O 0
  1158. .lt 7.5i
  1159. .tl '\(rn''\(rn'
  1160. .@@O
  1161. .lt
  1162. d184 1
  1163. d198 1
  1164. d263 1
  1165. d465 2
  1166. d468 12
  1167. a479 1
  1168. .ip (\\n($p)
  1169. d490 1
  1170. a490 1
  1171. .sz \\n(ppu
  1172. d514 1
  1173. a514 1
  1174. .    sz \\n(spu
  1175. d518 1
  1176. a518 1
  1177. .    if \w"\\$1">0 \\$1\f1\ \  \"
  1178. d523 1
  1179. a523 1
  1180. .sz \\n(ppu
  1181. d690 6
  1182. d704 46
  1183. d798 3
  1184. d806 1
  1185. a806 1
  1186. .    if \\n~>4 \
  1187. d957 3
  1188. d985 1
  1189. a985 1
  1190. .nr hm 3v
  1191. a987 3
  1192. .if "\*(.T"va"\{\
  1193. .    nr tm 5v
  1194. .    nr bm 8v\}
  1195. d992 1
  1196. a992 1
  1197. .nr bi 4n
  1198. d1014 1
  1199. a1014 1
  1200. .    ds - \-
  1201. d1025 1
  1202. a1025 1
  1203. .if \n(.T=0 \
  1204. d1027 1
  1205. a1027 1
  1206. .if "\*(.T"va" \
  1207. a1031 2
  1208. .if \nv \
  1209. .    po 1i
  1210. a1080 47
  1211. .de lh            \" letter head.  $1 == d if date wanted
  1212. .nr xx \\n(.d
  1213. .nr xy \\n(.u
  1214. .nr xz \\n(.f
  1215. .pp
  1216. \0
  1217. .nr xw \\n(.s
  1218. .nf
  1219. .ie "\*(.T"ip" \{\
  1220. .    ft R \}
  1221. .el \{\
  1222. .    ft cr\}
  1223. .ps 12
  1224. .vs 0.14i
  1225. .in 0
  1226. .ie "\*(.T"va" \{\
  1227. .    po 0.1i
  1228. .    sp |0.3i\}
  1229. .el \{\
  1230. .    po 0.4i
  1231. .    sp |0.5i\}
  1232. UNIVERSITY OF CALIFORNIA, BERKELEY
  1233. .sp 0.3i-1v
  1234. .ps 7
  1235. \D't 0.013i'\D'l 4.5i 0'\h'0.83i'\D'l 1.85i 0'
  1236. .sp 0.13i-1v
  1237. \!s5
  1238. \D't 0.024i'\|BERKELEY \v'-0.035i'\D'l 0 0'\v'0.035i' DAVIS \v'-0.035i'\D'l 0 0'\v'0.035i' IRVINE \v'-0.035i'\D'l 0 0'\v'0.035i' LOS ANGELES \v'-0.035i'\D'l 0 0'\v'0.035i' RIVERSIDE \v'-0.035i'\D'l 0 0'\v'0.035i' SAN DIEGO \v'-0.035i'\D'l 0 0'\v'0.035i' SAN FRANCISCO\h'|4.9i'\u\f(slseal\fP\h'|5.475i'\dSANTA BARBARA \v'-0.035i'\D'l 0 0'\v'0.035i' SANTA CRUZ
  1239. .sp 0.07i-1v
  1240. \D't 0.013i'\D'l 4.5i 0'\h'0.83i'\D'l 1.85i 0'
  1241. .sp 0.5i-1v
  1242. \|COLLEGE OF ENGINEERING\h'|4.1i'BERKELEY, CALIFORNIA  94720
  1243. \|DEPARTMENT OF ELECTRICAL ENGINEERING
  1244. \0\0AND COMPUTER SCIENCES\D't 3u'
  1245. \|COMPUTER SCIENCE DIVISION
  1246. .ft \\n(xz
  1247. .ps \\n(xw
  1248. .if "\\$1"d" \{\
  1249. .sp 4p
  1250. \h'|4.1i'\\*(td\}
  1251. .if \\n(xy .fi
  1252. .ie \\n(xx>\\n(.d .sp |\\n(xxu
  1253. .el .sp 0.3i
  1254. .vs
  1255. .in
  1256. .po
  1257. ..
  1258. d1082 1
  1259. a1082 46
  1260. .de IS  \"    ideal picture
  1261. .nr g7 \\n(.u
  1262. .ls 1
  1263. ..
  1264. .de IF
  1265. .if \\n(g7 .fi
  1266. .ls
  1267. ..
  1268. .de IE
  1269. .if \\n(g7 .fi
  1270. .ls
  1271. ..
  1272. .de PS    \"     start picture (bwk) $1 is height, $2 is width in units
  1273. .if t .sp .3
  1274. .in (\\n(.lu-\\$2u)/2u
  1275. .ne \\$1u
  1276. .nr g7 \\n(.u
  1277. .ls 1
  1278. ..
  1279. .de PE
  1280. .in
  1281. .if \\n(g7 .fi
  1282. .if t .sp .6
  1283. .ls
  1284. ..
  1285. .de GS    \"    GRN called with C (default), L or R  (g1=width, g2=height)
  1286. .nr g7 (\\n(.lu-\\n(g1u)/2u
  1287. .if "\\$1"L" .nr g7 \\n(.iu
  1288. .if "\\$1"R" .nr g7 \\n(.lu-\\n(g1u
  1289. .in \\n(g7u
  1290. .nr g7 \\n(.u
  1291. .ls 1
  1292. .nf
  1293. .ne \\n(g2u
  1294. ..
  1295. .de GE
  1296. .ls
  1297. .in
  1298. .if \\n(g7 .fi
  1299. .if t .sp .6
  1300. ..
  1301. .de GF
  1302. .ls
  1303. .in
  1304. .if \\n(g7 .fi
  1305. ..
  1306. @
  1307.